home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update29.zoo / gemlib / diffs
Encoding:
Text File  |  1993-03-28  |  19.0 KB  |  727 lines
  1. ===================================================================
  2. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/Changelog,v
  3. retrieving revision 1.21
  4. diff -c -r1.21 Changelog
  5. *** 1.21    1993/02/22 06:07:35
  6. --- Changelog    1993/03/29 03:31:10
  7. ***************
  8. *** 344,346 ****
  9. --- 344,366 ----
  10.       adjust for above changes.
  11.   
  12.   ------------------------------- Patchlevel 27 -------------------------------
  13. + 
  14. + gemfast.h:: andreas
  15. +     ICONBLK does not have the field ib_resvd. i dont
  16. +      know introduced that, but it is definitly wrong, and loses
  17. +     on RSC files (sizeof(ICONBLK) == 34).
  18. + 
  19. + vdiesc1.c:: andreas
  20. +     all functions with subcode > 31 must be coded "by hand".
  21. + 
  22. + vdibez.c/vdiesc1.c: andreas
  23. +     opcode of v_bez_qual conflicts with v_write_meta
  24. +     (the other conflicts are reasonable). I dont have the
  25. +     official documentation, so no patch included.
  26. + 
  27. +     well i looked up all the docs i have. this seems to be ok because
  28. +     the two will be distinguished by intin[0]. in the case of v_bez_qual()
  29. +     intin[0] = 32. in the case of v_write_meta(), intin[0] has to be
  30. +     something other than [0-100], so we should be fine. ++jrb
  31. + 
  32. + ------------------------------- Patchlevel 28 -------------------------------
  33. ===================================================================
  34. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/PatchLev.h,v
  35. retrieving revision 1.19
  36. diff -c -r1.19 PatchLev.h
  37. *** 1.19    1993/02/22 06:07:36
  38. --- PatchLev.h    1993/03/29 03:31:12
  39. ***************
  40. *** 1,4 ****
  41. ! #define PatchLevel "27"
  42.   
  43.   /*
  44.    *    the Patch Level above is to identify the version
  45. --- 1,4 ----
  46. ! #define PatchLevel "28"
  47.   
  48.   /*
  49.    *    the Patch Level above is to identify the version
  50. ===================================================================
  51. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/aesbind.h,v
  52. retrieving revision 1.12
  53. diff -c -r1.12 aesbind.h
  54. *** 1.12    1993/02/22 06:07:39
  55. --- aesbind.h    1993/03/29 03:31:15
  56. ***************
  57. *** 92,101 ****
  58.   __EXTERN int    menu_tnormal __PROTO((void *Tree, int Item, int NormalFlag));
  59.   __EXTERN int    menu_text __PROTO((void *Tree, int Item, char *Text));
  60.   __EXTERN int    menu_register __PROTO((int ApId, char *MenuText));
  61. ! __EXTERN int    menu_popup __PROTO((MENU *me_menu, int me_xpos, int me_ypos,
  62. !                                     MENU *me_mdata));
  63.   __EXTERN int    menu_attach __PROTO((int me_flag, OBJECT *me_tree, int me_item,
  64. !                                      MENU *me_mdata));
  65.   __EXTERN int    menu_istart __PROTO((int me_flag, OBJECT *me_tree,
  66.                                        int me_imenu, int me_item));
  67.   __EXTERN int    menu_settings __PROTO((int me_flag, MN_SET *me_values));
  68. --- 92,101 ----
  69.   __EXTERN int    menu_tnormal __PROTO((void *Tree, int Item, int NormalFlag));
  70.   __EXTERN int    menu_text __PROTO((void *Tree, int Item, char *Text));
  71.   __EXTERN int    menu_register __PROTO((int ApId, char *MenuText));
  72. ! __EXTERN int    menu_popup __PROTO((MENU_T *me_menu, int me_xpos, int me_ypos,
  73. !                                     MENU_T *me_mdata));
  74.   __EXTERN int    menu_attach __PROTO((int me_flag, OBJECT *me_tree, int me_item,
  75. !                                      MENU_T *me_mdata));
  76.   __EXTERN int    menu_istart __PROTO((int me_flag, OBJECT *me_tree,
  77.                                        int me_imenu, int me_item));
  78.   __EXTERN int    menu_settings __PROTO((int me_flag, MN_SET *me_values));
  79. ===================================================================
  80. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/aesmenu.c,v
  81. retrieving revision 1.6
  82. diff -c -r1.6 aesmenu.c
  83. *** 1.6    1993/02/22 06:07:41
  84. --- aesmenu.c    1993/03/29 03:31:16
  85. ***************
  86. *** 134,140 ****
  87.    * returns 0 on failure, and data in me_data is invalid
  88.    * returns 1 on success, data in me_data is valid
  89.    */
  90. ! int menu_popup(MENU *me_menu, int me_xpos, int me_ypos, MENU *me_mdata)
  91.   {
  92.       _int_in[0]   =  me_xpos;
  93.       _int_in[1]   =  me_ypos;
  94. --- 134,140 ----
  95.    * returns 0 on failure, and data in me_data is invalid
  96.    * returns 1 on success, data in me_data is valid
  97.    */
  98. ! int menu_popup(MENU_T *me_menu, int me_xpos, int me_ypos, MENU_T *me_mdata)
  99.   {
  100.       _int_in[0]   =  me_xpos;
  101.       _int_in[1]   =  me_ypos;
  102. ***************
  103. *** 154,160 ****
  104.    * returns:0 failure: the submenu was not attached for whatever reasons
  105.    *         1 success: the submenu was attached, changed or removed successfully
  106.    */
  107. ! int menu_attach(int me_flag, OBJECT *me_tree, int me_item, MENU *me_mdata)
  108.   {
  109.       _int_in[0] = me_flag;
  110.       _int_in[1] = me_item;
  111. --- 154,160 ----
  112.    * returns:0 failure: the submenu was not attached for whatever reasons
  113.    *         1 success: the submenu was attached, changed or removed successfully
  114.    */
  115. ! int menu_attach(int me_flag, OBJECT *me_tree, int me_item, MENU_T *me_mdata)
  116.   {
  117.       _int_in[0] = me_flag;
  118.       _int_in[1] = me_item;
  119. ===================================================================
  120. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/gemfast.h,v
  121. retrieving revision 1.13
  122. diff -c -r1.13 gemfast.h
  123. *** 1.13    1993/02/22 06:07:43
  124. --- gemfast.h    1993/03/29 03:31:18
  125. ***************
  126. *** 249,254 ****
  127. --- 249,255 ----
  128.   #define DISABLED    0x0008
  129.   #define OUTLINED    0x0010
  130.   #define SHADOWED    0x0020
  131. + #define WHITEBAK    0x0080
  132.           /* Object colors - default pall. */
  133.   #define WHITE    0
  134.   #define BLACK    1
  135. ***************
  136. *** 416,422 ****
  137.       short    ib_ytext;
  138.       short    ib_wtext;
  139.       short    ib_htext;
  140. -         short   ib_resvd;
  141.       } ICONBLK;
  142.   
  143.   typedef struct bit_block
  144. --- 417,422 ----
  145. ***************
  146. *** 560,566 ****
  147.                                  items must consist entirely of G_STRINGS. */
  148.       short   mn_keystate; /* The CTRL, ALT, SHIFT Key state at the time the
  149.                   mouse button was pressed. */
  150. ! } MENU;
  151.   
  152.   /* menu_settings uses a new structure for setting and inquiring the submenu
  153.    * delay values and the menu scroll height.  The delay values are measured in
  154. --- 560,566 ----
  155.                                  items must consist entirely of G_STRINGS. */
  156.       short   mn_keystate; /* The CTRL, ALT, SHIFT Key state at the time the
  157.                   mouse button was pressed. */
  158. ! } MENU_T;
  159.   
  160.   /* menu_settings uses a new structure for setting and inquiring the submenu
  161.    * delay values and the menu scroll height.  The delay values are measured in
  162. ===================================================================
  163. RCS file: /net/acae127/home/bammi/etc/src/master/atari/gemlib/vdiesc1.c,v
  164. retrieving revision 1.2
  165. diff -c -r1.2 vdiesc1.c
  166. *** 1.2    1991/09/06 02:10:31
  167. --- vdiesc1.c    1993/03/29 03:31:19
  168. ***************
  169. *** 294,299 ****
  170. --- 294,301 ----
  171.   }
  172.   #endif /* L_v_alpha_ */
  173.   
  174. + /* WARNING: All bindings below this point require hand coding,
  175. +    because the subcode is > 31 */
  176.   
  177.   /*        vs_palette                        */
  178.   /*        IBM CGA escape                        */
  179. ***************
  180. *** 304,312 ****
  181.   
  182.   int vs_palette( int handle, int palette)
  183.   {
  184.       _intin[0] = palette;
  185.   
  186. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 1, 60), handle);
  187.   
  188.       return _intout[0];
  189.   }
  190. --- 306,323 ----
  191.   
  192.   int vs_palette( int handle, int palette)
  193.   {
  194. +     short *wptr;
  195.       _intin[0] = palette;
  196.   
  197. !      wptr = (short *)_contrl;
  198. !     *wptr++ = 5;        /* 0  - opcode */
  199. !     *wptr++ = 0;        /* 1 */
  200. !      wptr++;        /* 2 */
  201. !     *wptr++ = 1;        /* 3  - # of entries in _intin */
  202. !      wptr++;        /* 4 */
  203. !     *wptr++ = 60;        /* 5 - id */
  204. !     *wptr   = handle;    /* 6 - handle */
  205. !     vdi();
  206.   
  207.       return _intout[0];
  208.   }
  209. ***************
  210. *** 325,333 ****
  211.   /*    frequency: Frequency of the tone in Hertz            */
  212.   /*    duration: length of tone in timer ticks                */
  213.   {
  214.       _intin[0] = frequency;
  215.       _intin[1] = duration;
  216. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 61), handle);
  217.   }
  218.   #endif /* L_v_sound */
  219.   
  220. --- 336,354 ----
  221.   /*    frequency: Frequency of the tone in Hertz            */
  222.   /*    duration: length of tone in timer ticks                */
  223.   {
  224. +     short *wptr;
  225.       _intin[0] = frequency;
  226.       _intin[1] = duration;
  227. ! 
  228. !      wptr = (short *)_contrl;
  229. !     *wptr++ = 5;        /* 0  - opcode */
  230. !     *wptr++ = 0;        /* 1 */
  231. !      wptr++;        /* 2 */
  232. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  233. !      wptr++;        /* 4 */
  234. !     *wptr++ = 61;        /* 5 - id */
  235. !     *wptr   = handle;    /* 6 - handle */
  236. !     vdi();
  237.   }
  238.   #endif /* L_v_sound */
  239.   
  240. ***************
  241. *** 346,352 ****
  242.   /* return value: 0 : sound on                        */
  243.   /*         1 : sound off                        */
  244.   {
  245. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 1, 62), handle);
  246.       return _intout[0];
  247.   }
  248.   #endif /* L_vs_mute */
  249. --- 367,384 ----
  250.   /* return value: 0 : sound on                        */
  251.   /*         1 : sound off                        */
  252.   {
  253. !     short *wptr;
  254. !     _intin[0] = action;
  255. ! 
  256. !      wptr = (short *)_contrl;
  257. !     *wptr++ = 5;        /* 0  - opcode */
  258. !     *wptr++ = 0;        /* 1 */
  259. !      wptr++;        /* 2 */
  260. !     *wptr++ = 1;        /* 3  - # of entries in _intin */
  261. !      wptr++;        /* 4 */
  262. !     *wptr++ = 62;        /* 5 - id */
  263. !     *wptr   = handle;    /* 6 - handle */
  264. !     vdi();
  265.       return _intout[0];
  266.   }
  267.   #endif /* L_vs_mute */
  268. ***************
  269. *** 364,373 ****
  270.   /*    xres, yres: resolution in lines per inch            */
  271.   /*    *xset, *yset: the resolution set                */
  272.   {
  273.       _intin[0] = xres;
  274.       _intin[1] = yres;
  275.   
  276. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 81), handle);
  277.   
  278.       *xset = _intout[0];
  279.       *yset = _intout[1];
  280. --- 396,414 ----
  281.   /*    xres, yres: resolution in lines per inch            */
  282.   /*    *xset, *yset: the resolution set                */
  283.   {
  284. +     short *wptr;
  285.       _intin[0] = xres;
  286.       _intin[1] = yres;
  287.   
  288. !      wptr = (short *)_contrl;
  289. !     *wptr++ = 5;        /* 0  - opcode */
  290. !     *wptr++ = 0;        /* 1 */
  291. !      wptr++;        /* 2 */
  292. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  293. !      wptr++;        /* 4 */
  294. !     *wptr++ = 81;        /* 5 - id */
  295. !     *wptr   = handle;    /* 6 - handle */
  296. !     vdi();
  297.   
  298.       *xset = _intout[0];
  299.       *yset = _intout[1];
  300. ***************
  301. *** 387,396 ****
  302.   /*    xres, yres: resolution in lines                 */
  303.   /*    *xset, *yset: the resolution set                */
  304.   {
  305.       _intin[0] = xres;
  306.       _intin[1] = yres;
  307.   
  308. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 82), handle);
  309.   
  310.       *xset = _intout[0];
  311.       *yset = _intout[1];
  312. --- 428,446 ----
  313.   /*    xres, yres: resolution in lines                 */
  314.   /*    *xset, *yset: the resolution set                */
  315.   {
  316. +     short *wptr;
  317.       _intin[0] = xres;
  318.       _intin[1] = yres;
  319.   
  320. !      wptr = (short *)_contrl;
  321. !     *wptr++ = 5;        /* 0  - opcode */
  322. !     *wptr++ = 0;        /* 1 */
  323. !      wptr++;        /* 2 */
  324. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  325. !      wptr++;        /* 4 */
  326. !     *wptr++ = 82;        /* 5 - id */
  327. !     *wptr   = handle;    /* 6 - handle */
  328. !     vdi();
  329.   
  330.       *xset = _intout[0];
  331.       *yset = _intout[1];
  332. ***************
  333. *** 410,419 ****
  334.   /*    xorigin: x - coordinate for the left upper corner        */
  335.   /*    yorigin: y - coordinate for the left upper corner        */
  336.   {
  337.       _intin[0] = xorigin;
  338.       _intin[1] = yorigin;
  339.   
  340. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 83), handle);
  341.   }
  342.   #endif /* L_vt_origi */
  343.   
  344. --- 460,478 ----
  345.   /*    xorigin: x - coordinate for the left upper corner        */
  346.   /*    yorigin: y - coordinate for the left upper corner        */
  347.   {
  348. +     short *wptr;
  349.       _intin[0] = xorigin;
  350.       _intin[1] = yorigin;
  351.   
  352. !      wptr = (short *)_contrl;
  353. !     *wptr++ = 5;        /* 0  - opcode */
  354. !     *wptr++ = 0;        /* 1 */
  355. !      wptr++;        /* 2 */
  356. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  357. !      wptr++;        /* 4 */
  358. !     *wptr++ = 83;        /* 5 - id */
  359. !     *wptr   = handle;    /* 6 - handle */
  360. !     vdi();
  361.   }
  362.   #endif /* L_vt_origi */
  363.   
  364. ***************
  365. *** 428,434 ****
  366.   void vq_dimensions(int handle, int *xdimension, int *ydimension)
  367.   /* Parameters: you can guess, can't you?                */
  368.   {
  369. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 0, 84), handle);
  370.   
  371.       *xdimension = _intout[0];
  372.       *ydimension = _intout[1];
  373. --- 487,501 ----
  374.   void vq_dimensions(int handle, int *xdimension, int *ydimension)
  375.   /* Parameters: you can guess, can't you?                */
  376.   {
  377. !     short *wptr = (short *)_contrl;
  378. !     *wptr++ = 5;        /* 0  - opcode */
  379. !     *wptr++ = 0;        /* 1 */
  380. !      wptr++;        /* 2 */
  381. !     *wptr++ = 0;        /* 3  - # of entries in _intin */
  382. !      wptr++;        /* 4 */
  383. !     *wptr++ = 84;        /* 5 - id */
  384. !     *wptr   = handle;    /* 6 - handle */
  385. !     vdi();
  386.   
  387.       *xdimension = _intout[0];
  388.       *ydimension = _intout[1];
  389. ***************
  390. *** 446,455 ****
  391.   /* Parameters: dx, dy : offsets for X- and Y - coordinate from origin    */
  392.   
  393.   {
  394.       _intin[0] = dx;
  395.       _intin[1] = dy;
  396.   
  397. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 85), handle);
  398.   }
  399.   #endif /* L_vt_align */
  400.   
  401. --- 513,531 ----
  402.   /* Parameters: dx, dy : offsets for X- and Y - coordinate from origin    */
  403.   
  404.   {
  405. +     short *wptr;
  406.       _intin[0] = dx;
  407.       _intin[1] = dy;
  408.   
  409. !      wptr = (short *)_contrl;
  410. !     *wptr++ = 5;        /* 0  - opcode */
  411. !     *wptr++ = 0;        /* 1 */
  412. !      wptr++;        /* 2 */
  413. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  414. !      wptr++;        /* 4 */
  415. !     *wptr++ = 85;        /* 5 - id */
  416. !     *wptr   = handle;    /* 6 - handle */
  417. !     vdi();
  418.   }
  419.   #endif /* L_vt_align */
  420.   
  421. ***************
  422. *** 466,475 ****
  423.   /*    index: number of film type                    */
  424.   /*    lightness: exposure time from -3 (half) to 0 (normal) to +3 (double) */
  425.   {
  426.       _intin[0] = index;
  427.       _intin[1] = lightness;
  428.   
  429. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 2, 91), handle);
  430.   }
  431.   #endif /* L_vsp_film */
  432.   
  433. --- 542,560 ----
  434.   /*    index: number of film type                    */
  435.   /*    lightness: exposure time from -3 (half) to 0 (normal) to +3 (double) */
  436.   {
  437. +     short *wptr;
  438.       _intin[0] = index;
  439.       _intin[1] = lightness;
  440.   
  441. !      wptr = (short *)_contrl;
  442. !     *wptr++ = 5;        /* 0  - opcode */
  443. !     *wptr++ = 0;        /* 1 */
  444. !      wptr++;        /* 2 */
  445. !     *wptr++ = 2;        /* 3  - # of entries in _intin */
  446. !      wptr++;        /* 4 */
  447. !     *wptr++ = 91;        /* 5 - id */
  448. !     *wptr   = handle;    /* 6 - handle */
  449. !     vdi();
  450.   }
  451.   #endif /* L_vsp_film */
  452.   
  453. ***************
  454. *** 490,499 ****
  455.   {
  456.       short tmp, res;
  457.       short *ptmp;
  458.   
  459.       _intin[0] = index;
  460.   
  461. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 1, 92), handle);
  462.   
  463.       ptmp = _intout;
  464.       res = _contrl[4];
  465. --- 575,593 ----
  466.   {
  467.       short tmp, res;
  468.       short *ptmp;
  469. +     short *wptr;
  470.   
  471.       _intin[0] = index;
  472.   
  473. !      wptr = (short *)_contrl;
  474. !     *wptr++ = 5;        /* 0  - opcode */
  475. !     *wptr++ = 0;        /* 1 */
  476. !      wptr++;        /* 2 */
  477. !     *wptr++ = 1;        /* 3  - # of entries in _intin */
  478. !      wptr++;        /* 4 */
  479. !     *wptr++ = 92;        /* 5 - id */
  480. !     *wptr   = handle;    /* 6 - handle */
  481. !     vdi();
  482.   
  483.       ptmp = _intout;
  484.       res = _contrl[4];
  485. ***************
  486. *** 517,525 ****
  487.   /*    state:     = 0: switch off exposure                */
  488.   /*        != 0: switch on exposure                */
  489.   {
  490.       _intin[0] = state;
  491.   
  492. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 1, 93), handle);
  493.   }
  494.   #endif /* L_vsc_expo */
  495.   
  496. --- 611,628 ----
  497.   /*    state:     = 0: switch off exposure                */
  498.   /*        != 0: switch on exposure                */
  499.   {
  500. +     short *wptr;
  501.       _intin[0] = state;
  502.   
  503. !      wptr = (short *)_contrl;
  504. !     *wptr++ = 5;        /* 0  - opcode */
  505. !     *wptr++ = 0;        /* 1 */
  506. !      wptr++;        /* 2 */
  507. !     *wptr++ = 1;        /* 3  - # of entries in _intin */
  508. !      wptr++;        /* 4 */
  509. !     *wptr++ = 93;        /* 5 - id */
  510. !     *wptr   = handle;    /* 6 - handle */
  511. !     vdi();
  512.   }
  513.   #endif /* L_vsc_expo */
  514.   
  515. ***************
  516. *** 538,550 ****
  517.   /*    max_x : maximum y - value of surrounding rectangle        */
  518.   /*    max_y : dto, with y                        */
  519.   {
  520.       _ptsin[0] = min_x;
  521.       _ptsin[1] = min_y;
  522.       _ptsin[2] = max_x;
  523.       _ptsin[3] = max_y;
  524.   
  525. !     __vdi__(VDI_CONTRL_ENCODE(5, 2, 0, 98), handle);
  526. ! 
  527.   }
  528.   #endif /* L_v_meta_e */
  529.   
  530. --- 641,661 ----
  531.   /*    max_x : maximum y - value of surrounding rectangle        */
  532.   /*    max_y : dto, with y                        */
  533.   {
  534. +     short *wptr;
  535.       _ptsin[0] = min_x;
  536.       _ptsin[1] = min_y;
  537.       _ptsin[2] = max_x;
  538.       _ptsin[3] = max_y;
  539.   
  540. !      wptr = (short *)_contrl;
  541. !     *wptr++ = 5;        /* 0  - opcode */
  542. !     *wptr++ = 2;        /* 1 - # of points */
  543. !      wptr++;        /* 2 */
  544. !     *wptr++ = 0;        /* 3 - # of entries in _intin */
  545. !      wptr++;        /* 4 */
  546. !     *wptr++ = 98;        /* 5 - id */
  547. !     *wptr   = handle;    /* 6 - handle */
  548. !     vdi();
  549.   }
  550.   #endif /* L_v_meta_e */
  551.   
  552. ***************
  553. *** 574,579 ****
  554. --- 685,691 ----
  555.   /*    START DRAW AREA PRIMITIVE (80)                    */
  556.   /*    END DRAW AREA PRIMITIVE (81)                    */
  557.   {
  558. +     short *wptr;
  559.   #ifdef __MSHORT__    /* we have 16 bit ints, just change vdi params */
  560.       _vdiparams[1] = (void *) &a_intin[0];
  561.       _vdiparams[2] = (void *) &a_ptsin[0];
  562. ***************
  563. *** 587,593 ****
  564.           _ptsin[i] = a_ptsin[i];
  565.   #endif
  566.   
  567. !     __vdi__(VDI_CONTRL_ENCODE(5, num_ptsin, num_intin, 99), handle);
  568.   
  569.   #ifdef __MSHORT__
  570.       _vdiparams[1] = (void *)&_intin[0]; /* restore vdi parameters */ 
  571. --- 699,713 ----
  572.           _ptsin[i] = a_ptsin[i];
  573.   #endif
  574.   
  575. !      wptr = (short *)_contrl;
  576. !     *wptr++ = 5;        /* 0  - opcode */
  577. !     *wptr++ = num_ptsin;    /* 1 - # of points */
  578. !      wptr++;        /* 2 */
  579. !     *wptr++ = num_intin;    /* 3 - # of entries in _intin */
  580. !      wptr++;        /* 4 */
  581. !     *wptr++ = 99;        /* 5 - id */
  582. !     *wptr   = handle;    /* 6 - handle */
  583. !     vdi();
  584.   
  585.   #ifdef __MSHORT__
  586.       _vdiparams[1] = (void *)&_intin[0]; /* restore vdi parameters */ 
  587. ***************
  588. *** 609,619 ****
  589.   /*    pgwidth: width in 1/10 mm                    */
  590.   /*    pgheight: height in 1/10 mm                    */
  591.   {
  592.       _intin[0] = 0;
  593.       _intin[1] = pgwidth;
  594.       _intin[2] = pgheight;
  595.   
  596. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 3, 99), handle);
  597.   }
  598.   #endif /* L_vm_pages */
  599.   
  600. --- 729,748 ----
  601.   /*    pgwidth: width in 1/10 mm                    */
  602.   /*    pgheight: height in 1/10 mm                    */
  603.   {
  604. +     short *wptr;
  605.       _intin[0] = 0;
  606.       _intin[1] = pgwidth;
  607.       _intin[2] = pgheight;
  608.   
  609. !      wptr = (short *)_contrl;
  610. !     *wptr++ = 5;        /* 0  - opcode */
  611. !     *wptr++ = 0;        /* 1 */
  612. !      wptr++;        /* 2 */
  613. !     *wptr++ = 3;        /* 3  - # of entries in _intin */
  614. !      wptr++;        /* 4 */
  615. !     *wptr++ = 99;        /* 5 - id */
  616. !     *wptr   = handle;    /* 6 - handle */
  617. !     vdi();
  618.   }
  619.   #endif /* L_vm_pages */
  620.   
  621. ***************
  622. *** 632,645 ****
  623.   /*    urx: x - coordinate in the right upper corner            */
  624.   /*    ury: y - coordinate in the right upper corner            */
  625.   {
  626.       _intin[0] = 1;
  627.       _intin[1] = llx;
  628.       _intin[2] = lly;
  629.       _intin[3] = urx;
  630.       _intin[4] = ury;
  631.   
  632. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 5, 99), handle);
  633. ! 
  634.   }
  635.   #endif /* L_vm_coord */
  636.   
  637. --- 761,782 ----
  638.   /*    urx: x - coordinate in the right upper corner            */
  639.   /*    ury: y - coordinate in the right upper corner            */
  640.   {
  641. +     short *wptr;
  642.       _intin[0] = 1;
  643.       _intin[1] = llx;
  644.       _intin[2] = lly;
  645.       _intin[3] = urx;
  646.       _intin[4] = ury;
  647.   
  648. !      wptr = (short *)_contrl;
  649. !     *wptr++ = 5;        /* 0  - opcode */
  650. !     *wptr++ = 0;        /* 1 */
  651. !      wptr++;        /* 2 */
  652. !     *wptr++ = 5;        /* 3  - # of entries in _intin */
  653. !      wptr++;        /* 4 */
  654. !     *wptr++ = 99;        /* 5 - id */
  655. !     *wptr   = handle;    /* 6 - handle */
  656. !     vdi();
  657.   }
  658.   #endif /* L_vm_coord */
  659.   
  660. ***************
  661. *** 656,668 ****
  662.   {
  663.       short n;
  664.       register short *ptmp = _intin;
  665.   
  666.   /* copy string */
  667.       while (*ptmp++ = (unsigned char) *filename++)
  668.            ;
  669.       n = (ptmp - _intin) -1;
  670.   
  671. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, n, 100), handle);
  672.   
  673.   }
  674.   #endif /* L_vm_filen */
  675. --- 793,814 ----
  676.   {
  677.       short n;
  678.       register short *ptmp = _intin;
  679. +     short *wptr;
  680.   
  681.   /* copy string */
  682.       while (*ptmp++ = (unsigned char) *filename++)
  683.            ;
  684.       n = (ptmp - _intin) -1;
  685.   
  686. !      wptr = (short *)_contrl;
  687. !     *wptr++ = 5;        /* 0  - opcode */
  688. !     *wptr++ = 0;        /* 1 */
  689. !      wptr++;        /* 2 */
  690. !     *wptr++ = n;        /* 3  - # of entries in _intin */
  691. !      wptr++;        /* 4 */
  692. !     *wptr++ = 100;        /* 5 - id */
  693. !     *wptr   = handle;    /* 6 - handle */
  694. !     vdi();
  695.   
  696.   }
  697.   #endif /* L_vm_filen */
  698. ***************
  699. *** 679,687 ****
  700.   /* Parameters:                                */
  701.   /*    times: number of times to print the current page        */
  702.   {
  703.             _intin[0] = times;
  704.   
  705. !     __vdi__(VDI_CONTRL_ENCODE(5, 0, 1, 2000), handle);
  706. ! 
  707.   }
  708.   #endif /* L_v_escape */
  709. --- 825,841 ----
  710.   /* Parameters:                                */
  711.   /*    times: number of times to print the current page        */
  712.   {
  713. +     short *wptr;
  714.             _intin[0] = times;
  715.   
  716. !      wptr = (short *)_contrl;
  717. !     *wptr++ = 5;        /* 0  - opcode */
  718. !     *wptr++ = 0;        /* 1 */
  719. !      wptr++;        /* 2 */
  720. !     *wptr++ = 1;        /* 3  - # of entries in _intin */
  721. !      wptr++;        /* 4 */
  722. !     *wptr++ = 2000;        /* 5 - id */
  723. !     *wptr   = handle;    /* 6 - handle */
  724. !     vdi();
  725.   }
  726.   #endif /* L_v_escape */
  727.